
--With Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
package Logging is
   procedure Info(S : in String);
   procedure Warning(S : in String);
   procedure Error(S : in String);

   procedure Start_Timer;
   procedure Stop_Timer;

   procedure Start_Counter;
   procedure Increment_Counter(I : in Integer := 1);
   procedure Stop_Counter;

private
   pragma Inline(Info);
   pragma Inline(Warning);
   pragma Inline(Error);
   pragma Inline(Start_Timer);
   pragma Inline(Stop_Timer);
   pragma Inline(Start_Counter);
   pragma Inline(Increment_Counter);
   pragma Inline(Stop_Counter);
end Logging;